Spreadsheets =(
“Can you make me this plot? Ok now this plot? Wait one more plot…”
learnr)# what you see, client side
ui <- fluidPage(
)# computations here!
server <- function(input, output) {
}# run the app!
shinyApp(ui = ui, server = server)# what you see, client side
ui <- fluidPage(
# Title, panels
plotOutput("myplot"), #from output$myplot
selectInput("foo",choices=allthechoices)
)# computations here!
server <- function(input, output) {
}# run the app!
shinyApp(ui = ui, server = server)# what you see, client side
ui <- fluidPage(
# Title, panels
plotOutput("myplot"), #from output$myplot
selectInput("foo",choices=allthechoices)
)# computations here!
server <- function(input, output) {
# reactive plots
output$myplot <- renderPlot({ ggplot(yay) + geom_point() })
# use input$foo here, maybe observe changes in UI
observe({ dostuff(input$foo) })
}# run the app!
shinyApp(ui = ui, server = server)Shiny Transcriptome Analysis Resource Tool
Github: https://github.com/jminnier/STARTapp
DATA = RNA-seq gene expression